home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_1014_TTextListView < prev    next >
Encoding:
Text File  |  1992-04-08  |  737 b   |  31 lines
  1. %case doChoice%
  2.     %DoChoice%
  3. %case itemNr%
  4.     %DefineItem%
  5. %case classDecl%
  6.  
  7.     Type
  8.         %classname% = Object (%superclass%) 
  9.             Procedure GetItemText    (anItem:    integer;
  10.                                  var aString:    Str255); Override;
  11.             {$IFC qInspector}
  12.             Procedure Fields    (
  13.                     Procedure DoToField    (fieldName:        Str255;
  14.                                          fieldAddr:        Ptr;
  15.                                          fieldType:        integer)
  16.                                 ); Override;
  17.             {$ENDC}
  18.         end; {%classname%}
  19. %case gDeadStripSuppression%
  20.     %StripSuppression%
  21. %case classMethods%
  22.     {----------}
  23.     Procedure %classname%.GetItemText%    %(anItem:        integer;
  24.                                      var aString:        Str255);
  25.     Begin
  26.         NumToString (longint (anItem), aString); {replace with something useful}
  27.         aString := concat ('item ', aString);
  28.     End; {GetItemText}
  29.     
  30.     %ClassMethods%
  31.